home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
RESUME.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
1KB
|
21 lines
;;; compiled by jwz@thalidomide on Thu Jul 2 16:39:34 1992
;;; from file /u/jwz/emacs19/lisp/packages/resume.el
;;; emacs version 19.2.1 Lucid.
;;; bytecomp version 2.07; 17-jun-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(byte-code "└┬└ç" [resume-process-args suspend-resume-hook resume-preparation suspend-hook] 1)
(defvar emacs-args-file "~/.emacs_args" "\
*This file is where arguments are placed for a suspended emacs job.")
(fset 'resume-preparation #[nil "└┴┬Åç" [nil (delete-file emacs-args-file) ((error))] 3])
(fset 'resume-process-args #[nil "p└┴!┬╞Äqê╟ ê┬╚╔Åêebê╩┬wêm¼î`╦┬wê`{B¬m¡ìƒë@╠P╬A!,ç" [get-buffer-create " *Command Line Args*" nil resume-args resume-args-buffer resume-start-buffer ((byte-code "p=½â qê┬ç" [resume-args-buffer resume-start-buffer nil] 2)) erase-buffer (byte-code "└ !ê┬ !ç" [insert-file-contents emacs-args-file delete-file] 2) ((file-error (erase-buffer))) " \n" "^ \n" "/" default-directory command-line-1] 4 "\
This should be called from inside of suspend-resume-hook.
Grabs the contents of the file whose name is stored in
emacs-args-file, and processes these arguments like command line options."])